Trailing-Edge
-
PDP-10 Archives
-
6.1_emacs_manuals_1er
-
emacs/columns.:ej
There are no other files named columns.:ej in the archive.
( W
[0+8+FQ(+4)[1
0FO1 0F"G+Q1
'W+FQ()+4U1
FQ1"L0 '
,Q1:M(Q1+4(]1]0))
y & | F O q { O ^ " % . $ 1 F M
m
{
#
7 L \ % 1
" - I Y + 5 & 6 < & Setup COLUMN Library7 0fo..QTwo Column Margin"e
3M.VTwo Column Margin' Make 2 Columns. FF"n"l
:i*NEG Negative arg not allowedfserr''
ff&2"e
qEmacs Version-132"g
hm(m.m& Save for Undo)Make 2 Columns''
fm(m.m& Make Two Columns)[0
jg0zk
& Make Two Columns [0[1[2[3[4[5
b,.x1
.,zx2
f[bbind
g1j
0u3
<.-z;
.-(:lw.)u4
q4+q3"l-q4u3'
l>
q3+(ff&1"eqTwo Column Margin'"#')u3
0u0fnq0f"nfsbkill 'w
fsbconsu0
q..Ou5j
q0u..Og2j
<q0u..O
-z;
1:fx4k
q5u..O
q3+(.-(:lw.)),40.i
g4
.-(l.)"e
i'
>
q5u..O
hfx* Make 1 Columne qEmacs Version-132"g
hm(m.m& Save for Undo)Make 1 Column'
[0[1[2
m.m& Move Column 2 to Other Bufferu1
0u2fnq2f"nfsbkill 'w
fsbconsu2
.-(0l.)u0
zj.-(0l.)"nzj
i'
j<.-z;
q0,q2m1
l>
zjg(q2[..Ohfx*(]..O))
# & Move Column 2 to Other BufferS [0[1
0l.u0
:l
.-q0-"gq0+j1:fx1'"#:i1'
-@f k
[..Og1
i]..O
0l Flush Trailing Whitespace' .:\[0fn 0j
<.-z;:l-@f kl>
Flush Extra CRs+ .:\[0fn 0j
<:s
;-2d4r>
Make Blocks FF&2"e
qEmacs Version-132"g
hm(m.m& Save for Undo)Make Blocks''
[0[1
jm(m.mFlush Trailing Whitespace)
jm(m.mFlush Extra CRs)
@f
k
j0u1
<0U0
< a- l%0>
q0-q1"gq0u1'
:s;0l>
j
<0U0
<
1a-
q1-q0<i
>
0;'
l%0
>
:s;r
>
b,z Make Two Column Blocks* qEmacs Version-132"g
hm(m.m& Save for Undo)Make Two Column Blocks'
[0
j1,m(m.mMake Blocks)
zj-@f
k
i
ff"n
j0u0<%0wl.-z;>
j(q0/2-2)l
:s
sr'
"#
jm(m.m& Split Blocks)'
1,@m(m.mMake 2 Columns)
jm(m.mFlush Trailing Whitespace)
jm(m.mFlush Extra CRs)
b,z & Split Blocks [0[1[2[3
j
0u0< >
< a- 0>
0u1fnq1"nq1fsbkill '
fsbconsu1
q..Ou2
j<.-z;
q0l
q0fx3q1u..Og3q2u..O
>
q1u..Ohfx3q2u..Og3fkc
~Filename~
COLUMN ~DOC~ ~Filename~- Macros for hacking more than one column
~DOC~ & Setup COLUMN LibraryD & Initialize the world
Init qTwo Column Margin if necessary
~DOC~ Make 2 ColumnsF S Make this long, skinny file into a short, fat one
Take the text following the cursor and join it to the stuff following the
cursor making two columns.
With no arg, Uses qTwo Column Margin (Default=3) as the amount
of space to leave between the columns at their narrowest point.
With an arg, uses the argument as the size of the margin.
A pre-comma arg menas it is being called from a macro and should not
do an MM & Setup for Undo
~DOC~ & Make Two Columns% & Helper for ^R Make 2 Columns
~DOC~ Make 1 Column S Make long, skinny buffer out of short, fat one
Starting from the horizontal position, assume rest of line is column 2.
Move rest of all lines (column 2) into second buffer, flushing trailing
spaces on each column 1 that is left showing. Then yank back other buffer.
) ~DOC~ & Move Column 2 to Other Bufferx & Move end of line to end of buffer.
Use arg1 as width of column 1. Move to column 2, snarf rest of line flushing
trailing whitespace in column 1. Jump to other buffer (arg 2) and yank back
text. Return to beginning of line we started on.
# ~DOC~ Flush Trailing WhitespaceS S Flush whitespace at end of each line
Does this from point to end of buffer
~DOC~ Flush Extra CRsO S Flush redundant carriage returns
Does this from point to end of buffer
~DOC~ Make Blocks9 S Separate text into blocks of same number of lines
~DOC~ Make Two Column Blocks Like MM Make Blocks but for 1->2 column format
A pre-comma arg menas it is being called from a macro and should not
do an MM & Setup for Undo
~DOC~ & Split Blocks) & Helper for Make Two Column Blocks
~DIRECTORY~Q & Setup COLUMN Library
Make 2 Columns
& Make Two Columns
Make 1 Column
& Move Column 2 to Other Buffer
Flush Trailing Whitespace
Flush Extra CRs
Make Blocks
Make Two Column Blocks
& Split Blocks
~INVERT~ [1<Q1-1U1Q1FP;>Q1